unit Dllform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzBckgnd, ExtCtrls, RzPanel, RzTabs, RzButton, StdCtrls, RzEdit;

type
  TForm1 = class(TForm)
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    TabSheet3: TRzTabSheet;
    TabSheet4: TRzTabSheet;
    TabSheet5: TRzTabSheet;
    TabSheet6: TRzTabSheet;
    TabSheet7: TRzTabSheet;
    TabSheet8: TRzTabSheet;
    TabSheet9: TRzTabSheet;
    TabSheet10: TRzTabSheet;
    TabSheet11: TRzTabSheet;
    RzGroupBox1: TRzGroupBox;
    RzSeparator1: TRzSeparator;
    RzMemo1: TRzMemo;
    RzBtnF1: TRzButton;
    RzBtnF2: TRzButton;
    RzBtnF3: TRzButton;
    RzBtnF4: TRzButton;
    RzBtnF5: TRzButton;
    RzBtnF6: TRzButton;
    RzBtnF7: TRzButton;
    RzBtnF8: TRzButton;
    RzButton1: TRzButton;
    RzButton2: TRzButton;
    RzBtnHome: TRzButton;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    btn_selMon: TButton;
    procedure RzBtnHomeClick(Sender: TObject);
    procedure RzBtnF1Click(Sender: TObject);
    procedure RzBtnF2Click(Sender: TObject);
    procedure RzBtnF3Click(Sender: TObject);
    procedure RzBtnF4Click(Sender: TObject);
    procedure RzBtnF5Click(Sender: TObject);
    procedure RzBtnF6Click(Sender: TObject);
    procedure RzBtnF7Click(Sender: TObject);
    procedure RzBtnF8Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure btn_selMonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses GameProc;

{$R *.dfm}

procedure TForm1.RzBtnHomeClick(Sender: TObject);
begin
 self.Visible:=not self.Visible;
end;

procedure TForm1.RzBtnF1Click(Sender: TObject);
begin
	F1_F8(1); //F1
end;

procedure TForm1.RzBtnF2Click(Sender: TObject);
begin
 F1_F8(2);
end;

procedure TForm1.RzBtnF3Click(Sender: TObject);
begin
F1_F8(3);
end;

procedure TForm1.RzBtnF4Click(Sender: TObject);
begin
F1_F8(4);
end;

procedure TForm1.RzBtnF5Click(Sender: TObject);
begin
F1_F8(5);
end;

procedure TForm1.RzBtnF6Click(Sender: TObject);
begin
F1_F8(6);
end;

procedure TForm1.RzBtnF7Click(Sender: TObject);
begin
F1_F8(7);
end;

procedure TForm1.RzBtnF8Click(Sender: TObject);
begin
F1_F8(8);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
F1_9(1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 F1_9(2);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 F1_9(3);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 F1_9(4);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 F1_9(5)
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
 F1_9(6);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
 F1_9(7);
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
 F1_9(8);
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
 F1_9(9);
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
 F1_9(10);
end;

procedure TForm1.btn_selMonClick(Sender: TObject);
var
	pcall:pointer;
	index:integer;
begin
 pcall:=Pointer($45b3b0);
 index:=$145;
	
	asm
		lea  eax,index
		mov  ecx,$04EED4A0   //[[[[[95E800+1c]+24]+918]+14]+1c ]  
		push eax
		call pcall
	end;
end;

end.
